[求助]加载行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，很忏愧，后面的加载 dr 代码竟然不会写了

Dim drs As List(of DataRow) = DataTables("一类疫苗出库单").SQLSelect("出入库类型 = '3'")

For Each dr As DataRow In drs

If dr IsNot Nothing Then

Dim zs As List(of DataRow) = dr.GetChildRows("一类疫苗出库表")

If zs.Count <= 0 Then

MessageBox.Show("有出库单没有出库明细,请及时删除!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

要加载 dr 代码

[此贴子已经被作者于2017/1/15 20:43:34编辑过]

主题：[求助]加载行