主题：代码修正帮忙一下啊，非常感谢

我的初衷是这样的，

项目的表是外部表， 加载完后 根据表中  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

见笑了啊~~~