[หน้าฮี] "Microsoft.CSharp.RuntimeBinder.RuntimeBinderException:..." แก้ไขอย่างไร

// เหมือนเดิม
// ...

public static void GetValue()
        {
            dynamic lst = IsModule();
            foreach (var item in lst)
            {
                Console.WriteLine(item.Ass + "({0})" + " / " + item.Module + "({1})", item.Ass.GetType().ToString(), item.Module.GetType().ToString());
            }

            Console.ReadLine();
        }

public static IEnumerable<dynamic> IsModule()
{
    var list = Enumerable.Repeat(new
    {
        Ass = 1,
        Module = String.Empty
    }, 0).ToList();

    list.Add(new { Ass = 1, Module = "PO" });
    list.Add(new { Ass = 2, Module = "SO" });
    list.Add(new { Ass = 2, Module = "AR" });
    list.Add(new { Ass = 2, Module = "AP" });
    list.Add(new { Ass = 2, Module = "IC" });
    list.Add(new { Ass = 2, Module = "GL" });
    return list; //.ToList();
}

public static void GetValue()
{
    dynamic lst = IsModule();
    foreach (var item in lst)
    {
        Console.WriteLine(item.Ass);
    }
}

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;

namespace WindowsFormsApp2
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }
        public static IEnumerable<dynamic> IsModule()
        {
            var list = Enumerable.Repeat(new
            {
                Ass = 1,
                Module = String.Empty
            }, 0).ToList();

            list.Add(new { Ass = 1, Module = "PO" });
            list.Add(new { Ass = 2, Module = "SO" });
            list.Add(new { Ass = 2, Module = "AR" });
            list.Add(new { Ass = 2, Module = "AP" });
            list.Add(new { Ass = 2, Module = "IC" });
            list.Add(new { Ass = 2, Module = "GL" });
            return list; //.ToList();
        }

        public static void GetValue(ListBox ls)
        {
            dynamic lst = IsModule();
            foreach (var item in lst)
            {
                ls.Items.Add(item.Ass);
            }
        }

        private void Form1_Load(object sender, EventArgs e)
        {
            GetValue(listBox1);
        }
    }
}

using System;
using System.Collections.Generic;
using System.Linq;
using System.Runtime.CompilerServices;
using System.Text;
using System.Dynamic;

[assembly: InternalsVisibleTo("<Caller_Assembly>")] //AA.WebApp
namespace BB_Database.Models.Settings.IS
{
    public static class ISBook2Express
    {
        public static IEnumerable<dynamic> IsModule()
        {
            var list = Enumerable.Repeat(new
            {
                Ass = 1,
                Module = String.Empty
            }, 0).ToList();

            list.Add(new { Ass = 1, Module = "PO" });
            list.Add(new { Ass = 2, Module = "SO" });
            list.Add(new { Ass = 2, Module = "AR" });
            list.Add(new { Ass = 2, Module = "AP" });
            list.Add(new { Ass = 2, Module = "IC" });
            list.Add(new { Ass = 2, Module = "GL" });
            return list.ToList();// list.Cast<dynamic>();//.ToList();
        }

        public static void GetValue()
        {
            dynamic lst = IsModule();
            foreach (var item in lst)
            {
                Console.WriteLine(item.Ass);
            }
        }
    }
}

Project AA โค๊ดจริง
Code (C#)
[cs]namespace AA.WebApp
{
    public class Startup
    {
        public Startup(IConfiguration configuration)
        {
            Configuration = configuration;
            dynamic varTest = BB_Database.Models.Settings.IS.ISBook2Express.IsModule();
            foreach (var item in varTest)
            {
                int ia = item.Ass;
                string ib = item.Module;
            }            
        }
     }
}

Code (C#)
[cs]using System;
using System.Collections.Generic;
using System.Linq;
using System.Runtime.CompilerServices;
using System.Text;
using System.Dynamic;
//
//***** ที่ไม่ได้มันถูกต้องแล้ว  แสดงว่า .NET Core 2.2
//
[assembly: InternalsVisibleTo("AA", AllInternalsVisible =true)] // assembly name = AA,  namespace AA.WebApp
namespace BB_Database.Models.Settings.IS
{
    public static class ISBook2Express
    {
        public static IEnumerable<dynamic> IsModule()
        {
            var list = Enumerable.Repeat(new
            {
                Ass = 1,
                Module = String.Empty
            }, 0).ToList();

            list.Add(new { Ass = 1, Module = "PO" });
            list.Add(new { Ass = 2, Module = "SO" });
            list.Add(new { Ass = 2, Module = "AR" });
            list.Add(new { Ass = 2, Module = "AP" });
            list.Add(new { Ass = 2, Module = "IC" });
            list.Add(new { Ass = 2, Module = "GL" });
            return list; //.ToList();// list.Cast<dynamic>();//.ToList();
        }

        public static void GetValue()
        {
            dynamic lst = IsModule();
            foreach (var item in lst)
            {
                Console.WriteLine(item.Ass);
            }
        }
    }
}

Project AA โค๊ดจริง
<strong>Code (C#)</strong>
[cs]namespace AA.WebApp //Assembly Name จริง ============================= AA
{
    public class Startup
    {
        public Startup(IConfiguration configuration)
        {
            Configuration = configuration;
            dynamic varTest = BB_Database.Models.Settings.IS.ISBook2Express.IsModule();
            foreach (var item in varTest)
            {
                int ia = item.Ass;
                string ib = item.Module;
            }            
        }
     }
}

            var list = Enumerable.Repeat(new
            {
                Ass = 1,
                Module = String.Empty
            }, 0).ToList();

            list.Add(new { Ass = 1, Module = "PO" });
            list.Add(new { Ass = 2, Module = "SO" });
            list.Add(new { Ass = 2, Module = "AR" });
            list.Add(new { Ass = 2, Module = "AP" });
            list.Add(new { Ass = 2, Module = "IC" });
            list.Add(new { Ass = 2, Module = "GL" });
            return list; //.ToList();// list.Cast<dynamic>();//.ToList();
            //list เป็นตัวแปรประเภท anonymous type แปลเป็นไทยได้ว่า เอ๋อเอ๋อ ยุงบินผ่านหน้าก็หัวเราะ/สลับร้องไห้ได้ ประมาณนั้น
            //ที่ได้ก็เพราะโดนบังคับ เช่น อายุ 9 ขวบ แล้วโดนสั่งให้มีผัวเป็นตัวเป็นตน
            //[assembly: InternalsVisibleTo("AA", AllInternalsVisible =true)]
           //มันฝืนธรรมชาติ

private static List<int> ass;
private static List<string> module;
public static void IsModule()
{
    var list = Enumerable.Repeat(new
    {
        Ass = 1,
        Module = String.Empty
    }, 0).ToList();

    list.Add(new { Ass = 1, Module = "PO" });
    list.Add(new { Ass = 2, Module = "SO" });
    list.Add(new { Ass = 2, Module = "AR" });
    list.Add(new { Ass = 2, Module = "AP" });
    list.Add(new { Ass = 2, Module = "IC" });
    list.Add(new { Ass = 2, Module = "GL" });

    // ลองแปลงร่างและแยกร่างดู
	ass = list.Select(c => c.Ass).ToList();
    module = list.Select(c => c.Module).ToList();

    //return list; //.ToList();
}

// ใช้ตัวนี้แทน แต่ต้องเรียก IsModule() ก่อน ...กลับไปกลับมาเป็น reflection
public static List<int> Ass { get { return ass; } }
public static List<string> Module { get { return module; } }
 

Imports System.Collections.Generic

Public Class WL_ERP_Calculator
    Private Delegate Function DelegateFormula(ByVal m As Double, ByVal n As Double) As Double
    Private Shared Formula As New Dictionary(Of String, DelegateFormula)() From {{"+", Function(m, n) m + n},
                                                                                 {"-", Function(m, n) m - n},
                                                                                 {"*", Function(m, n) m * n},
                                                                                 {"/", Function(m, n) m / n}
                                                                                }
    ''' <summary>
    ''' Example : Dim ret = Calculate(12.50, 10.00, "-") 
    '''           /Result = 2.50
    ''' </summary>
    Public Shared Function Calculate(ByVal a As Double, b As Double, Optional ByVal Oper As String = "+") As Double
        Dim retValue As Double = 0.0
        If (("+-*/").Contains(Oper)) AndAlso (Not (Oper = "/" AndAlso b = 0)) Then
            retValue = Formula(Oper).Invoke(a, b)
        End If
        Return retValue
    End Function
End Class

//JavaScript Core WLS Framework

var wls = wls || {};

wls.jc = wls.jc || {};
wls.String = wls.String || {};
wls.HTML = wls.HTML || {};

wls.jc = {
    alert: null,
    confirm: null,
};

wls.HTML = {
    ShowHide: null, //Display Block OR None
    ZeroText: null, //String.Empty
    ZeroDec0: null, //0
    ZeroDec1: null, //0.0
    ZeroDec2: null, //0.00
    ZeroDec3: null, //0.000
    ZeroDec4: null  //0.0000
}

/**
* @param {string} title หัวเรื่องข้อความเตือน
* @param {string} content ข้อความแจ้งเตือน
* @param {function} closeCallbackFnc เมื่อคลิกปุ่ม Close จะทำอะไรก็ว่ากันไป
* @param {string} btnCloseText ข้อความบนปุ่ม Close
*/
wls.jc.alert = function (title, content, closeCallbackFnc, btnCloseText) {
    $.alert({
        //theme: 'material', // 'material', 'bootstrap'
        title: title || 'ข้อความแจ้งเตือน',
        content: content || 'โปรดระมัดระวัง ข้อมูลสำคัญกว่าเมีย',
        buttons: {
            btnClose: {
                text: '<span style="padding-left:20px;padding-right:20px">' + (btnCloseText || 'รับทราบ') + '</span>',
                btnClass: 'btn-warning',
                action: closeCallbackFnc || function () { }
            }
        },
        backgroundDismiss: true,
        escapeKey: true,
    });
}

/**
* @param {string} x XXX
* @param {string} y YYY
* @param {function} fncCallback เมื่อคลิกปุ่ม Close จะทำอะไรก็ว่ากันไป
*/
wls.jc.confirm = function (x, y, fncCallback) {
    //TODO;
}

var results = await fuckAJAX(assAJAX);

async function fuckAJAX(objAJAX) {
    let result = null;
    try {
        result = await objAJAX;
        return result;
    } catch (error) {
        console.error(error);
    }
}

function assAJAX(type, url) {
    $.ajax({
        url: url,
        type: type || 'POST',
        data: {
            JVCode: "JV2019-07-01"
        },
        success: function (data) {
            return data;
        },
        error: function (jqXHR, textStatus, errorThrown) {
            return null;
        }
    });
}

function Hello() {
    $("#btnAssResult1").val("พี้ได้หลังก็จะไม่ลืมหน้า");
    $("#btnAssResult2").val("พี้ได้หน้าพี้ก็จะไม่ลืมหลัง");
    return "Hi";
}

@page "/"

<h1>Hello, world!</h1>

Welcome to your new app.

<SurveyPrompt Title="How is Blazor working for you?" />

<h1>ลองจิ้มดูซิ ชาตินี้ต้องลอง</h1>

<input type="button" class="btn btn-success" onclick="Hello();" value="ลองข้างหลังดูซิ" id="btnAss" />
<input type="button" class="btn btn-success" value="ได้หน้าอย่าลืมหลัง" id="btnAssResult1" />
<input type="button" class="btn btn-success" value="ได้หลังอย่าลืมหน้า" id="btnAssResult2" />

Func<string, JObject, T> Val13<T> = (s, j = JObj) => {return j.GetValue(s, StringComparison.OrdinalIgnoreCase).Value<T>();};
var x1 = Val13<string>("key1");
var x2 = Val13<int>("key2");
var x3 = Val13<DateTime>("key3");

Func<JObject, int, T> Val46<T> = (j = JObj, i) => {return j.GetValue(i, StringComparison.OrdinalIgnoreCase).Value<T>();};
var x4 = Val46<string>(i:3);
var x5 = Val46<DateTime>(i:4);
var x6 = Val46<int>(i:5);

static void Main()
{    
    dynamic[] x = new dynamic[]{
        Val16<string>("key1"),
        Val16<int>("key2"),
        Val16<DateTime>("key3"),
        Val16<string>("key4"),
        Val16<DateTime>("key5"),
        Val16<int>("key6")
    };
    for (int i = 0; i < x.Length; i++)
    {
        Console.WriteLine(x[i]);
    }
    Console.ReadKey();
}

private static T Val16<T>(string key)
{
    JObject j = new JObject();
    return j.GetValue(key, StringComparison.OrdinalIgnoreCase).Value<T>();
}

// omitted parts
public class JObject {...}
public class data {...}

using Newtonsoft.Json;
using Newtonsoft.Json.Linq;

private static T Val16<T>(string key)
{
    JObject j = new JObject();
    return j.GetValue(key, StringComparison.OrdinalIgnoreCase).Value<T>();
}

public void GenericMethod<T>(T SexInput) { }
GenericMethod<int>(123); //Don't need the <>.
GenericMethod(123); //Is enough

        Imports System.Dynamic

        If True = True Then
            Dim epdObj As New ExpandoObject()
            Dim p = TryCast(epdObj, IDictionary(Of String, Object))
            p("A") = "หอย"
            p("B") = "งาม"
            p("C") = "จริง"

            If p.Count > 0 Then
                MsgBox(p.Item("A")) 'Result หอย
                MsgBox(p.Item("น่าเย็ด"))
            End If
        End If

 
        If True = True Then
            Dim lstEPDObj As New List(Of Object)
            Dim Columns As Integer = 4

            For r As Integer = 0 To 10
                Dim epdObj As New ExpandoObject()
                Dim p = TryCast(epdObj, IDictionary(Of String, Object))
                For c As Integer = 0 To Columns - 1
                    p("dynObj" + c.ToString()) = "Value-" + r.ToString()
                Next
                lstEPDObj.Add(epdObj)
            Next

            If lstEPDObj.Count > 0 Then
                MsgBox(lstEPDObj(7).dynObj2()) 'Result Value-7
                MsgBox(lstEPDObj(3).น่าเย็ด())
            End If

        End If