窗口代码问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

上传例子测试

Dim dr As Row = Tables("表A").Current

Dim drb As Row = Tables("表B").AddNew

Dim cls() As String = {"第一列","第二列","第三列","第四列","第五列"}

For Each c As String In cls

drb(c) = dr(c)

dr.Delete

供应商DoubleClick事件

e.Cancel = True

Dim dr As Row = e.Row

Dim drb As Row = Tables("核对表").AddNew

Dim cls() As String = {"单据类型","药品名称","药品规格","生产企业","单位","单据进价","数量","单据金额"}

For Each c As String In cls

drb(c) = dr(c)

drb("公司名称") = "供应商"

dr.Delete

dr = e.Form.Controls("Table2").Table.current

drb = Tables("核对表").AddNew

For Each c As String In cls

drb(c) = dr(c)

drb("公司名称") = "我公司"

dr.Delete

看懂11楼的代码，自己改改。

看不懂，就先看帮助和视频教程

这么几句简单的代码都不愿意花时间学会，难以想象后面还能做出更复杂的功能。最后的结果就是欲速而不达

供应商DoubleClick事件

e.Cancel = True

Dim dr As Row = e.Row

Dim drb As Row = Tables("核对表").AddNew

Dim cls() As String = {"单据类型","药品名称","药品规格","生产企业","单位","单据进价","数量","单据金额"}

Dim cls2() As String = {"单据类型","药品名称","药品规格","生产企业","单位","单据进价","出库数量","出库单据金额"}

For i As Integer = 0 To cls.Length - 1

drb(cls2(i)) = dr(cls(i))

drb("公司名称") = "供应商"

dr.Delete

我公司DoubleClick事件

e.Cancel = True

Dim dr As Row = e.Row

Dim drb As Row = Tables("核对表").AddNew

Dim cls() As String = {"单据类型","药品名称","药品规格","生产企业","单位","单据进价","数量","单据金额"}

Dim cls2() As String = {"单据类型","药品名称","药品规格","生产企业","单位","单据进价","入库数量","入库单据金额"}

For i As Integer = 0 To cls.Length - 1

drb(cls2(i)) = dr(cls(i))

drb("公司名称") = "我公司"

dr.Delete

主题：窗口代码问题