主题：请教关于逻辑列跨表填充是转换成金额。

If dr("打勾") = True

改成

If dr("你自己的列名啊") = True

Select Case e.DataCol.Name
    Case "ID"
        If e.DataRow.IsNull("ID") = False Then '如果已经输入订单编号
            If e.DataRow.GetChildRows("表D").Count = 0 Then '而且无订单明细
                Dim dr As DataRow = DataTables("表D").AddNew()
                dr("ID") = e.DataRow("ID")
            End If
        End If
End Select

Select Case e.DataCol.Name
    Case "第二列","第三列","第四列"
        Dim Filter As String = "[ID] = '" & e.DataRow("ID") & "'"
        Dim drs As List(Of DataRow) = DataTables("表D").Select(Filter)
        For Each dr As DataRow In drs
            If e.NewValue = True
                dr(e.DataCol.Name) = 200
            Else
                dr(e.DataCol.Name) = e.NewValue
            End If
        Next
End Select