[makky]

كود الاضافه للحق الاول
d.Dataedit(String.Format("insert into ptsense(PT_Name,PT_Date,PT_Code,sample,G,coun,comm,organism,sens)values('{0}',#{1}#,{2},'{3}','{4}','{5}','{6}','{7}','{8}')", txtname.Text, Textdate.Text, Textcode.Text, Comsample.Text, Comstain.Text, Txtcount.Text, Txtcomm.Text, Comorganism.Text, x))
كود الاضافه للحقل الثاني
d.Dataedit(String.Format("insert into ptsense(PT_Name,PT_Date,PT_Code,sample,G,coun,comm,organism,resist)values('{0}',#{1}#,{2},'{3}','{4}','{5}','{6}','{7}','{8}')", txtname.Text, Textdate.Text, Textcode.Text, Comsample.Text, Comstain.Text, Txtcount.Text, Txtcomm.Text, Comorganism.Text, x))

كود التقرير

Dim dt As DataTable = New DAL().selectdatatable(String.Format("SELECT PT.PT_Code, PT.age_sex2, PT.fullname2, Ptsense.PT_Date, DR.Dr_Name, Ptsense.sample, Ptsense.G, Ptsense.coun, Ptsense.comm, Ptsense.organism, Ptsense.sens, Ptsense.resist, labdetails.labnme, labdetails.labspecial, labdetails.labadress, labdetails.labphone, labdetails.labtime, labdetails.lablogo, labdetails.labprint, labdetails.labnameenglish, labdetails.labspecialenglish FROM labdetails, (PT INNER JOIN Ptsense ON PT.PT_Code = Ptsense.PT_Code) INNER JOIN DR ON PT.DR_Code = DR.Dr_Code WHERE (((PT.PT_Code)={0}) AND ((Ptsense.PT_Date)=#{1}#));", Txtcode.Text, DateTimePicker1.Value.ToString("dd/MM/yyyy")))