AfterLoad

Dim cmd As New SQLCommand

Dim ds As DataTable

cmd.C

cmd.CommandText = "SELECT * Fr om {订单核价系统}"

ds = cmd.ExecuteReader(True)

Dim drt As DataTable = DataTables("核价系统主表_Table1")

Dim tbl As Table = Tables("核价系统主表_Table1")

tbl.DataSource = ds

e.Form.Controls("lable1").Text= "Ok"

Tables("核价系统主表_Table1").RaiseCurrentChanged 

tbl.SetColVisibleWidth("客户|95|客户担当|70|品名|160|款号|170|样衣款号|160|核价金额|70|技术担当|70|")

tbl.Cols("技术担当").TextAlign = TextAlignEnum.Right

tbl.Cols("品名").TextAlign = TextAlignEnum.Right

tbl.Cols("客户担当").TextAlign = TextAlignEnum.Right

tbl.Cols("款号").TextAlign = TextAlignEnum.Center

tbl.Cols("样衣款号").TextAlign = TextAlignEnum.Center

tbl.SetHeaderCellForeColor("核价金额",Color.Blue)

CurrentChanged

If e.Form.Controls("lable1").Text <> "Ok" Then  

   Return

End If

Dim pbx As WinForm.PictureBox = Forms("核价系统主表").Controls("PictureBox1")

If Tables("核价系统主表_Table1").Current Is Nothing Then

    pbx.Image = Nothing

Else

    pbx.Image = Tables("核价系统主表_Table1").Current.DataRow.SQlLoadImage("款式图片") \'从后台提取照片并显示

End If

还是出错，这是为什么呢

 CurrentChanged

Dim pbx As WinForm.PictureBox = Forms("核价系统主表").Controls("PictureBox1")

If e.Table.Current Is Nothing Then

    pbx.Image = Nothing

Else

    Dim cmd As New SQLCommand

    Dim ds As DataTable

    cmd.ConnectionName = "xxx"

    cmd.CommandText = "SELECT 款式图片 Fr om {核价系统} where [_Identify] = " & e.Table.Current("_Identify")

    ds = cmd.ExecuteReader()

    If ds.datarows.count > 0 Then

        Dim imageByte() As Byte = ds.datarows(0)("图片列")

        Dim ms As New system.IO.MemoryStream(imageByte)       \'将字节数组转换为二进制流

        Dim image As Image = Image.FromStream(ms)

        pbx.Image = image

    else

        pbx.Image = Nothing

    End If

End If

End If

    p

End If

这个p是什么？