主题：错误代码

此主题相关图片如下：捕获.png

上面的提示是什么意思？ 代码如下

If e.DataCol.name="ppp" Then 'AndAlso Tables("qt").Current IsNot Nothing
    Dim d As Date = e.DataRow("time")
    Dim bh As String = Format(D,"MMddhhmm")
    Dim bh1 As String = Format(D,"yyMMdd")
    e.DataRow("cord1")="A" & e.DataRow("name") & bh & e.DataRow("_Identify")
    e.DataRow("bh1")= bh1
    e.DataRow("bh")= bh
    e.DataRow("pic")="c:\补货\" & bh1 & "\" & e.DataRow("cord1") & ".jpeg"
Else
   If Tables("qt").Current.IsNull("bbb") AndAlso Tables("qt").Current.IsNull("ppp") Then
       e.DataRow("cord1")="A" & e.DataRow("name") & bh & e.DataRow("_Identify")
End If
End If