منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
مامعنى رسالة الخطأ
وطريقة حل الخطأ
الكود صحيح 100%
هل يوجد مشكلة بالتاريخ

========================================CODE

Dim STR__ = "SELECT SUM(DEBIT) , SUM(CREDIT) FROM DET_IMP WHERE IMP_CODE ='" & TXT_IMP_CODE.Text & "' AND BUY_DATE < '" & D1.Value & "'"
Dim CMD As New SqlClient.SqlCommand(STR__, SQLCON)
Dim DA As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(CMD)
Dim DT As New DataTable("DET_IMPOTER")
DA.Fill(DT)

جرب تعديل الكود إلى الشكل التالي :

كود :

    Dim STR__ As String

        STR__ = "SELECT SUM(DEBIT) , SUM(CREDIT) FROM DET_IMP WHERE IMP_CODE ='" & TXT_IMP_CODE.Text & "' AND BUY_DATE < '" & D1.Value & "'"

        Dim CMD As New SqlClient.SqlCommand(STR__, SQLCON)

        Dim DA As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(CMD)

        Dim DT As New DataTable("DET_IMPOTER")

        DA.Fill(DT)

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

MOHAMMED ALZWI

أبو خالد الشكري