Dim dtb As New DataTableBuilder("医务人员收入")
Dim dg3 As fxDataSource
dtb.AddDef("信用代码", Gettype(String), 36)
dtb.AddDef("调查年份", Gettype(String), 16)
dtb.AddDef("医师人数", Gettype(Double))
dtb.AddDef("医师年均收入", Gettype(Double))
dtb.AddDef("医技人数", Gettype(Double))
dtb.AddDef("医技年均收入", Gettype(Double))
dtb.AddDef("护理人数", Gettype(Double))
dtb.AddDef("护理年均收入", Gettype(Double))
dtb.build()
For Each drsr As DataRow In DataTables("各类医务人员收入调查表").Select("市州='韶关市' and 调查年份='2023'")
Dim dr As DataRow = DataTables("医务人员收入").AddNew()
dr("信用代码") = drsr("信用代码")
dr("医师人数") = drsr("医师人数")
dr("医师年均收入") = drsr("医师年均收入")
dr("医技人数") = drsr("医技人数")
dr("医技年均收入") = drsr("医技年均收入")
dr("护理人数") = drsr("护理人数")
dr("护理年均收入") = drsr("护理年均收入")
dr("调查年份") = drsr("调查年份")
Next
dg3=dtb.BuildDataSource()
dg3.show("医务人员收入")
上述代码，查询表“医务人员收入”为空，没有任何数据。但如果我将：dg3.show("医务人员收入")改成 MainTable = Tables("医务人员收入")，查询表中数据显示正常。
[此贴子已经被作者于2024/6/16 0:21:39编辑过]
加好友 
发短信
Post By：2024/6/16 [只看该作者]
