主题：请教不设置关联，自动填充对应数据代码

此主题相关图片如下：代码.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:求教.rar

想实现盘点表标准模号为空的话，将库存表里同样名称和模号的标准模号填充到盘点表里的标准模号中去，盘点表标准模号不为空的话，保留原始标准模号
在易表里盘点表标准模号的刷新公式设置为
if([标准模号]="",FindText("库存表","标准模号","名称","=",[名称],"模号","=",[模号]),[标准模号])
就可以搞掂了。
到了FOXTABLE里面在盘点表里希望用窗口里面更新标准模按钮点击实现，自动填充标准模号的代码要怎么写？
两个表都是引用外部数据源。打开文件如果没有数据，应该是引用的路径变了，数据库文件放在压缩包pandian.mdb里面了

设置盘点表的DataColChanged时间代码：

 

Select Case e.DataCol.Name
    Case "名称","模号"
        Dim dr1 As DataRow = e.DataRow
        If dr1.IsNull("标准模号") Then
            messagebox.show("1")
            Dim dr2 As DataRow = DataTables("库存表").Find("名称 = '" & dr1("名称") & "' And 模号 = '" & dr1("模号") & "'")
            If dr2 IsNot Nothing Then
                dr1("标准模号") = dr2("标准模号")
            End If
        End If
End Select

 

老六理解错的我意思了，我的盘点表是已经录入完成的了，想用窗口按钮来一次性出标准模号,上面你的代码只能一个一个录入 名称 模号后 才会出标准模号 我的意思是直接用盘点表里窗口的更新标准模号按钮，点击后，全部的行直接出对应的标准模号。 虽然上面的代码我只去掉 messagebox.show("1")后，剪切所有的模号再粘贴回去也会出来标准模号，但是我想用窗口里的按钮实现，复制上面的代码进按钮代码编辑器会出错误提示。。有劳指下。谢谢

For Each dr As DataRow In DataTables("盘点表").DataRows
    Dim dr2 As DataRow = DataTables("库存表").Find("名称 = '" & dr("名称") & "' And 模号 = '" & dr("模号") & "'")
    If dr2 IsNot Nothing Then
        dr("标准模号") = dr1("标准模号")
    End If
Next

琢磨了一下楼上的代码，怎么执行都不OK，后来才发现后面的dr1("标准模号")应该改为 dr2("标准模号")了，测试成功，谢谢！
For Each dr As DataRow In DataTables("盘点表").DataRows
Dim dr2 As DataRow = DataTables("库存表").Find("名称 = '" & dr("名称") & "' And 模号 = '" & dr("模号") & "'")
If dr2 IsNot Nothing Then
dr("标准模号") = dr2("标准模号")
End If
Next

手误!呵呵.