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

这样试试:
Dim dr,dr1 As DataRow
dr = e.DataRow
Select Case e.DataCol.Name
    Case "入库数量","单个克重"
        If dr.IsNull("入库数量") Then
            dr("入库数量1") = Nothing
        Else
            if dr.IsNull("单个克重") Then
                dr("入库数量1") = 2
            Else
               dr("入库数量1") = dr("入库数量") * dr("单个克重")
            End if
        End If
   Case "材料名"
       dr1 = DataTables("入录资料").Find("原材料 = '" & dr("材料名") & "'" )
       If dr1 IsNot Nothing
          dr("材料代号")= dr("代号")
          dr("单位")= dr("单位")
          dr("规格")= dr("规格")
          dr("单个克重")= dr("单个克重")
      End If
End Select

主题：Datecolchanged 中的代码