[عبدالله الدوسري]

جملة الإستعلام :

كود :

SELECT DISTINCT  CLIENT_.CLIENTNAM_,
(
SELECT SUM(C1.SALTOTPRIC_)
FROM CLIENT_ AS C1
WHERE C1.CLIENTNAM_ = CLIENT_.CLIENTNAM_
) AS Total_Purchases,

(
SELECT SUM(DEBTABL_.CASHDE_)
FROM DEBTABL_
WHERE DEBTABL_.CLIENTNAM_ = CLIENT_.CLIENTNAM_
) AS Total_Payments

FROM CLIENT_;

في ستكون هكذا :

كود :

Dim cmd As OleDbCommand = New OleDbCommand("SELECT DISTINCT  CLIENT_.CLIENTNAM_, (SELECT SUM(C1.SALTOTPRIC_) FROM CLIENT_ AS C1 WHERE C1.CLIENTNAM_ = CLIENT_.CLIENTNAM_) AS Total_Purchases, (SELECT SUM(DEBTABL_.CASHDE_) FROM DEBTABL_ WHERE DEBTABL_.CLIENTNAM_ = CLIENT_.CLIENTNAM_ ) AS Total_Payments FROM CLIENT_", con)