我的初衷是这样的，

项目的表是外部表， 加载完后 根据表中  ischeck 列的值 来自动生成 状态2的 值

代码是要放在项目属性的 afteropenproject里的，帮忙修正一下啊，非常感谢

For Each dr As DataRow In DataTables("订单").Select("状态2") 
    Dim fdr As DataRow = DataTables("订单").Select("ischeck")     
    If  dr=1 Then 
           fdr = "已付款"
     ElseIf dr=2 Then
            fdr = "未付款" 
ElseIf dr=2 Then
            fdr = "未付款" 
ElseIf dr=4 Then
            fdr = "延期" 

ElseIf dr=5 Then
            fdr = "OK" 

ElseIf dr=11 Then
            fdr = "已经发货" 

ElseIf dr=31 Then
            fdr = "已经付款" 
ElseIf dr=7 Then
            fdr = "取消"

ElseIf dr=100 Then
            fdr = "订单结束" 
    End If   
Next

汗，楼主竟然连最基础的语法都还不会。

For Each dr As DataRow In DataTables("订单").Select("")
    If  dr("ischeck")=1 Then
        dr("状态2")  = "已付款"
    ElseIf dr("ischeck")=2 Then
        dr("状态2")  = "未付款"
    ElseIf dr("ischeck")=2 Then
        dr("状态2")  = "未付款"
    ElseIf dr("ischeck")=4 Then
        dr("状态2")  = "延期"
       
    ElseIf dr("ischeck")=5 Then
        dr("状态2")  = "OK"
       
    ElseIf dr("ischeck")=11 Then
        dr("状态2")  = "已经发货"
       
    ElseIf dr("ischeck")=31 Then
        dr("状态2")  = "已经付款"
    ElseIf dr("ischeck")=7 Then
        dr("状态2")  = "取消"
       
    ElseIf dr("ischeck")=100 Then
        dr("状态2")  = "订单结束"
    End If
Next

见笑了啊~~~