[محمود صالح]

انا عامل فاتورة وبيانات الفاتورة في datagridview 
وفيه زرار لاستيراد ملف اكسيل في datagridview (من المفترض تكون فاتورة)
المشكلة ان في احتمال تكون بيانات الموجودة في ورقة الاكسيل غير متوافقه مع الفاتورة
بمعنى ان الفاتورة فيها عمود 
للصنف وده نوعه نص
للكمية وده نوعه رقم
للسعر وده نوعه رقم
للقيمة وده نوعه رقم
فلو افترضنا اني هجلب  ملف اكسيل 
وعمود الاول الى هو بتاع الصنف به رقم مش نص 
والعمود الثاني بتاع الكمية به نص  مش رقم
.............. الخخخخخخ
يعني فيه خلاف في نوع اعمدة 
ازاي اخلي البرنامج لا يقبل الا البيانات المتوافقه مع الفاتورة  
او اظهار رسالة بان بيانات الموجود على رقة الاكسيل غير متوافقه مع الفاتورة

[a.ahmed]

PHP كود :

Dim MsExcel = CreateObject("Excel.Application")
MsExcel.Workbooks.Open("d:\book1.xlsx")

DGV1.Columns(0).HeaderText = MsExcel.Cells(0 + 1).Value
DGV1.Columns(1).HeaderText = MsExcel.Cells(1 + 1).Value
DGV1.Columns(2).HeaderText = MsExcel.Cells(2 + 1).Value
DGV1.Columns(3).HeaderText = MsExcel.Cells(3 + 1).Value

DGV1.Rows.Clear()
Dim I As Integer = 0
Do
    If MsExcel.Cells(I + 2, 1).Value = "" Then Exit Do
    DGV1.RowCount = DGV1.RowCount + 1
    Dim value1 As Integer = Val(MsExcel.Cells(I + 2, 1).Value)
    Dim value2 As String = MsExcel.Cells(I + 2, 2).Value.ToString.Trim
    Dim value3 As String = MsExcel.Cells(I + 2, 3).Value.ToString.Trim
    Dim value4 As Integer = Val(MsExcel.Cells(I + 2, 4).Value)
    DGV1.Rows(I).Cells(0).Value = value1
    DGV1.Rows(I).Cells(1).Value = value2
    DGV1.Rows(I).Cells(2).Value = value3
    DGV1.Rows(I).Cells(3).Value = value4
    I = I + 1
Loop

MsExcel.Quit() 


[محمود صالح]

(27-10-17, 10:43 PM)a.ahmed كتب :

PHP كود :

Dim MsExcel = CreateObject("Excel.Application")
MsExcel.Workbooks.Open("d:\book1.xlsx")

DGV1.Columns(0).HeaderText = MsExcel.Cells(0 + 1).Value
DGV1.Columns(1).HeaderText = MsExcel.Cells(1 + 1).Value
DGV1.Columns(2).HeaderText = MsExcel.Cells(2 + 1).Value
DGV1.Columns(3).HeaderText = MsExcel.Cells(3 + 1).Value

DGV1.Rows.Clear()
Dim I As Integer = 0
Do
    If MsExcel.Cells(I + 2, 1).Value = "" Then Exit Do
    DGV1.RowCount = DGV1.RowCount + 1
    Dim value1 As Integer = Val(MsExcel.Cells(I + 2, 1).Value)
    Dim value2 As String = MsExcel.Cells(I + 2, 2).Value.ToString.Trim
    Dim value3 As String = MsExcel.Cells(I + 2, 3).Value.ToString.Trim
    Dim value4 As Integer = Val(MsExcel.Cells(I + 2, 4).Value)
    DGV1.Rows(I).Cells(0).Value = value1
    DGV1.Rows(I).Cells(1).Value = value2
    DGV1.Rows(I).Cells(2).Value = value3
    DGV1.Rows(I).Cells(3).Value = value4
    I = I + 1
Loop

MsExcel.Quit() 


الف شكر 
وصلت الفكرة يا كبير

[atefkhalf2004]

الاساتذة الكبار ارغب في جدول للاصناف
بحيث استطيع ان ابيع او اشتري
قطاعي وجملة من الصنف
والجرد يكون واضح
سبق ان وضعت الفكرة في قسم قواعد البيانات
شكرا