主题：一表自动填充到其他多个表中

DataColChanged事件

Dim dt1 As DataTable = DataTables("计划总表")
Dim dt2 As DataTable = DataTables("手术室")
Dim dt3 As DataTable = DataTables("外科")
Dim dt4 As DataTable = DataTables("比例")
Dim dr1 As DataRow = e.DataRow
Dim flt As String = "编码 = '" & dr1("编码") & "'"
Dim dr2 As DataRow = dt2.Find(flt)
If dr2 Is Nothing Then dr2 = dt1.addnew
For Each dc As DataCol In dt2.DataCols
    dr2(dc.Name) = dr1(dc.name)
Next
Dim fdr As DataRow = dt4.Find(flt)
dr2("数量") = fdr("手术室") * dr1("数量")
dr2 = dt3.Find(flt)
If dr2 Is Nothing Then dr2 = dt1.addnew
For Each dc As DataCol In dt3.DataCols
    dr2(dc.Name) = dr1(dc.name)
Next
fdr = dt4.Find(flt)
dr2("数量") = fdr("外科") * dr1("数量")

那个是简写，只要一条语句的时候，可以那样写。

If dr2 Is Nothing Then

    dr2 = dt1.addnew

End If