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

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

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