'根据项目编号统计开piao金额和回款金额
If e.DataCol.Name = "项目编号" Then
Dim Filter As String = "[项目编号] = '" & e.DataRow("项目编号") & "'"
e.DataRow("累计开piao金额") = DataTables("项目开piao信息表").Compute("Sum(含税金额)", filter)
e.DataRow("累计回款金额") = DataTables("项目回款信息表").Compute("Sum(回款金额)", filter)
End If
当开piao信息表中还没有对应项目编号的开piao数据时,就会有提示:![图片点击可在新窗口打开查看](data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAWgAAACdCAYAAACZzeLLAAAaLklEQVR4Ae2d+W8VR7bH7x9j5Ej8GfzwQoaYkR48KfAzfoqGy6rAjFgGafACvCEBhzDSGLO890MwyUQZsDGMAiFgluAdG4NtcFi9hkBIMhJJdJ5OLd2nqvsuxjfutu83Uqm7q6vOOfU5p763fGPhzKXue4QGBqgB1ABqIB01MDH9kt5++23i/zKXeu4TGhigBlAD5V4D56/epg+PttBf9n88Z439sV/J3hHor3ruExoYoAZQA+VeA/s++oz+daWPeoefzFljf+xXsncE+nLvKKGBAWoANVDuNcAn5+67j+mLm0Nz1tgf+5XsHYG+NvCI4ttNqlmzm/4+8Ig+P7iW1n9sx52m9Wsa6fOc83gcz11LNRfsHO/68W5aUqVtX/t4N71z8KaJIfTJMQV+1fgVtKRKtyCWC430Tlws3G/GRuaYuAPbzjpO0/qqPHHLsXINQT/Hv0KwsizC2Dme9dt4/W6ffi7S98Aj+vu2FbTEWTvHbpjaeJjDttM58uvlxM5J5TWOq4w/Zu2pXIeMuZT3M6jbsuIyM8a73z9JvUNP6ELHsNO+6Bgibrb/C/v+5jBd8Jt6N6T7eQ6/7xgmNceONc/cx/7Yr9RgR6Cv335MfmvkzR8rIHH9u6kxxsb1k7uVgPwz7p3qO6PEsPbiY/onfwCc5Dg6qHaNsXdRi6+az7a2nXHfG7s8V78T6+C5arzuC+2HY+L68q97LXGsmhXHHsNizdrIBwOLqFqDjClYj79264M5xNgXPjUvG4+2887BDi+X2k60P5ynmfu+cuQ0Zy6lvdz3OfmKXPm1qJ/1Ovw1h2M5H68bs2EdEwPH6/jkHHIOtp0htRZvjqpFm+/bskZsXnOzCdfyOmPCveTbUTGJurH7WtUE12HMu8h+mmXe/Zh+s2dnPTOvByXQI2N0sXOELnYOmyvf2zZMFzpHqGZ/I/3nf1UHjZ8vdoxQzV+PBH38vmb/ETX3Qkc4n+0Gzx0j1DsypgRaMrEC/e6771LmxuATirZOajzZ6fQ3bt9NjYMttIFFaHsL3VD3R+g0z//ySFSY4hJftZZqv4z3p4R5sFMLdHA1Yxk8+2Q/21uocbsvKOJ5zRE6bcbdOLmb3mnopNMNa2nDyRbaEBcTjx98om1u300beKN7TJQ/tWYdT/DMcZn57IN/KlCMqlbQhpPeOm1MbNspJBF7Dj7Kn/ETzRX74bWZuHPa1n6Yh2uDmXvxGhuRNXhctJ2Y+bHjJA8Rb8GxPK+Qj5naE7FwXtQHa3zeQwa6foJnnufki9/b+tbxBqwVz6h9Nw8ipqKYyPHSt+yPuVdx54jlN48zJp4ZrzWHDY497x7JMU/4r/mgmW6NjNGXXfdEux/cX+rS9yy+8j9+rt2vxdnvd21Ju/qe/bFfWQtWoNVvcdy885T8dqZhLa1aw4KjN/WG5i6qW1NDTXZscw0tqVpLdZfM3EtHaNX2logd327Tdj2nafsKWtXQFTPe8yP9bW8hO1/bzTGW59h4mmuUH17PhmaxTn7PImr61HqDeMxG5HfeuGA9av1SWHPfWx9BTBwfzze8wth4PYKpHSfitP55zpKqMB+BDRWv6Zf3lmPslf2GLKwPvfbQR9AfsZFjfmSc4H+HGRdj284p5GOm9qzdp2RzzzUZ5MrEHvbpmnBrVscU9HFO1xyhMzw3wr5Q/GE8uTnnG8PxebWTg7+qndi9qtfoM3i9ePLF+lu8Y77FrT/felgo+++P06WeUbrUzb/VY67dfB2lr0yrfb9JnZR//fVXso1F2t7zVYn2+036tzPs3J5R+kq1+/QV2+8eVf7Yr4zLEeiOoTGKay0f1lD95THqOMVivIKW7GhV45p28HefTdQy1EX1/GM4319uolXmvbLFc+Sz8dG0I6ttDo1Ry4dZPYbnxp1sTd/GUyaGHU1Uvyac32H9y7kqrjHqsPGcqqFVH3YpX8qOiGPjjizJvoBBTDyRccZuMCcnQ+1DMQvizFL9h4Zp0GcFPlyf4hN5b8Y5bFtpoxinYuU1WBYcm//sxKvzGFmj4Rv0e1x0v+tb14Xx58fk+OR5NdTk9OWbZ2N0/QWxDfn23HFcA/G5YruGOdesZDY0Rpy3jae071gbwRwbn9lLMfXPtkIbMj5TD45v+d7MU/wFM+eZx3t15dSI3eNmHO9rj72qNycGHiPjKBSn+z5uvUG+Am6+D59RlupPhfqg5vNcU1sBT1Pf9axNzruY3Dm+XQ5WoK/0fkOXReNn3fcg6K/74KgS4VevXpHfWJz5vbYRzgnthPb5A4H9ynw4At05PE5xrfUQC/Q4tV7uNu/Pqk11NMf40Eax44xfhlvdRK0xdlsPZWnjJ+PU+QkL/lnq5LF8VWPP0kZnnni24z6poVWHuimww/OMrbCvm+qrw8QucWzqGI+KxKs4rH8hQrYw7FXFLddkYxIx8DrcOFgs4vOhYlBr76bWmDFsh9faOcz8xXrkfcBO+tDrj8Q7LPu7qX6HyBEzrKohXQtyHNvNN9b6jauRfPNsjqxPk8cgBmmP7yVHPz4bg7ER5NufN05B3oMxYq7KrbF9yK1hzkVYJ3oO25L5CXmbtQU+OA47Vvjj+gnWO673QvCs5wQ+1VjJwNjhvAV+fNv+eG2zUJy53jsMeB9W2/rUXEMW0q/MlVmTjVfVHB8Uzf6XPMy7IBa5fm/NnIdgnNyfw+NUc+AUDYxOUnvfA2q/9VC1K7ce6Oe+B6TuuZ/f9z2keiPSExMTZBuLM/frsTxH27H2+Cr72B/7DfVznByB7hqZIL8dk4IkN3jsfZZWSYGLHSMEo/oonR2ZoLNKUHqo68rR/CfoTyeo69NalZiukR7aU11Lxzhmnmds6fhZoLVt9W7H2cAH+9rIdpQvPT/oi1k/+1t1qCfCxeUk/Hk2mJ/yJ/vZ946zEZt54xgxRVrl2lP5sWtlHwEfkcugj22Ea46ui5m69vU6uT9Le66ENjlW+wG0xNjUOYnOjx9rbYUxuUx1XRTnQ8Yt7PG6Y2owuu4JYo6yP+6Z8xjhLfNq/Dn5Dtjb9Qpf/E7mzubP9sW95zGidhUz55nXL3MVzV2uPNl+yUHZj4tD9sl7y0P2ifiO7eDY7H4RsfH4nLny15TnWfo1sYS5lPP43uiHjVlcrUBf7de//XG1/zHp9oi4j++v8XXgEe05cEydoB8+fEh+Y5Hm99cGHquxPMfO47nKFr/rf6Q+ENiv3AeOQHffm6SSNQa1sy1i79jOLO1pd/0c27mCNn06Sd3tWmjbYuJo+yirxwR2e7VA81gW0Y96Q1/SDt/vbCPrQ9tpo01cxCaOwLbyy3bFh0hM0SwRczUvtpdvTuhLjTcx8T37jitM7lNM7k2q2HONCfu1D15n0Fd9lBTLgA/HWUvHYvjqdei1W7+6T/NlIVG2OHY+1Vne6tna9ObnHWtrICamvPM8HyJnOm5hz2zWuHoK1qbm58qfXZfOgbZv6iOmtrvvCd+WcSQGEX/kncc67j3bdZj7zxyDrDf2J5/98TYPthbDNQeM4uKQffI+dt02hjbapOrIPH8q9nucDWtLcZVr8NconpmNrVUzn/eErVfeb3yv9l1sDjUPK9DXbz+ha7efEF9l032Pac+B40qcR0ZGyDYWZXvPVyXSB48786Ute29P0AH3e5PuCbrn/hTFt3MFBWjvVTm3j/Z+VBvOqT5Gbfe1jU3/kOP4nvtr6Tj7vnqMVucROjX3H+KTduc56rnfR3urs+T4ZzvKp/WlfWzaqccd5w8EEYcSaPEcMoixrfyZeANe52iT48/61dfjxm9gN1inG3fuOFx7ilPEXx+1yRwoHzrOcL0ea+anxtk4eL0umx7F276fIvUsfKtCt/lTbMR8nptzrF2TiMnyzDtPx7hE5V7bcGOQ9vhexHN/io7vlLVm1qXWGJNTMTdkyD61XRmDzq30bdfnMXXW5sdn1hYw89+fo70f9Xk5mzIf8jZ+niPyFbM/eC2r2Y7lra6+Lxt/uN5wzxSK03+vY1xdnSXLjHPGz2EcUf9BrhRvuSZ/jfJZ+w7sOvVtNKa6ljb5muGwmKLaA6fozoNpunFnjG7ceUo3Bp/S1+o6RjcGx+jrO7qx+A4ODgaNn/c2aNH2+78e1Lb4+jXbGzR2jT32x35lXpwTdO/oNMU3LUDncrw/wQJ0Lc9cKbo7z7k+rmkxVbblvefr3OEsbfpsmno/q1NJtnGe4GI7fMu16Yy5pURHj+H7aKxsQ9mWPjkW3qDsU/aPcjHU0Qm/r/oYFeajY1Gn44jdaQrW6Nhm/2ae9RFw0kXNIhj4NnHbPrbJm0KvQcRuGanxlkkYX3gKF7ZVXO6Y1TvraLXgofxxvlVM+cdGYgrWnW+efrdpZ134k4Lw3+vnx/IwNRjkU6yb8x8yCvMt+6M1EsPe923X48Tg1Y7zLkt7D9cZdiYO5304N+BctYLcHHBcNp+2dsSzWLesa7VWuU/tva0dJ45CceZ+H8c/iMPxIfeev6ZinsOfJAOfJh9qrXLP2DyJa93BT5RA37w7Tm4bo5t3uY3T13fHaV/DCXVCZmHW4nxCvfP7+ZnHK1t3fJv6mQWa/QY8RqfdE3TfN99SfDtPm23CYq/raN91M/f6ce8UXEcnhN3zh9fpjVV9nM5/8y2p5z+f1355rulXcTi2jA8WFjP+xJ+1OOuYZYxhPO4YjvE8bVbzb9G+4KsMESPb5zXmjEP6tLyk77AwApGrCuNx+Drri5lXfZxOKF5i7Za/ZcZsjZ3Vh4/TZhYrxVuvjz+YpE/mYePa/JmNH1fJKNF7rj9Ze2LvJBqXH0ehOAu99+3N4XNUE6L1z0I59OgZdQxNiDYp7sP+ziG/n59N3zCPm6ROtjNsrkMT6tn2WR/sj/3KPDsn6FsPnhEaGKAG5qoG+mnff9fR/wb77l/qILT6b/0p24eF4iz0fq54FuFHHWYk8/g59Q2f0vCT59TJojo8ZRrf2zZFnSOT1KXeTVLniBkzYt/LK7+Tz+69tcH+2K/cf45A9z/8jtDAADUwhzVw44TzE+fqvw2kcw8WirPQ+xRoy/+Znx43f144vwePtNDV7ns0Ov5yzhr7Y79y/zkCPfDwOaGBAWoANVDuNXBj4CkdaGxRJ1o+1c5FY3/sV7J3BPr2oxeEBgaoAdQAaiAdNeAK9OMXdBsNDFADqAHUQCpqwBHowcffExoYoAZQA6iBdNRARKDlP5GHexAAARAAgWQI8IckC/SyZctUABnuwH8gAAIgAALJE4BAJ58DRAACIAACsQQg0LFY0AkCIAACyROQAq3+5BW+4kg+KYgABEAABJiAFGh+xnfQqAsQAAEQSAkBCHRKEoEwQAAEQMAnAIH2ieAZBEAABFJCAAKdkkQgDBAAARDwCUCgfSJ4BgEQAIGUEIBApyQRCAMEQAAEfAIQaJ8InkEABEAgJQQg0ClJBMIAARAAAZ8ABNongmcQAAEQSAkBCHRKEoEwQAAEQMAnAIH2ieAZBEAABFJCAAKdkkQgDBAAARDwCUCgfSJ4BgEQAIGUEIBApyQRCAMEQAAEfAIQaJ8InkEABEAgJQQg0ClJBMIAARAAAZ8ABNongmcQAAEQSAkBCHRKEoEwQAAEQMAnIAUaf/LKp4NnEAABEEiQgBRoDgN/8irBZMA1CIAACEgCEGhJA/cgAAIgkCICEOgUJQOhgAAIgIAkAIGWNHAPAiAAAikiAIFOUTIQCgiAAAhIAhBoSQP3IAACIJAiAhDoFCUDoYAACICAJACBljRwDwIgAAIpIgCBTlEyEAoIgAAISAIQaEkD9yAAAiCQIgKlFejmlZTJZGhls7fC/l20OJNR76Lvm2ll8G4l+VM9S3gEARAAgbIhUCKB7qddizOUWbySVi72BbqZVi7eRf0WqRJrK8Q8z94TNa/MUCai7nYiriAAAiBQXgRKJNAWmhbq/BrLYxbTrkCx7VxihaaMFHPxCrcgAAIgUG4EEhBo/kojPDVL4HyCXhyr3HIU7kEABECgPAjMuUBHRFh8P53/5F0eCcEqQQAEQMASmFOBLvQds3qPrzhsbnAFARAocwJzJtCFxFnngb/+yPH9dJknCssHARAoPwJzIND6fxzGfrfMX2+I7zX6dy3G/yQsvxrEikEABHIQkAI9iz95pUWYf8dZNqW95nejZX9GnJKVKAfz4v/nYY7Y0Q0CIAACC5qAFGheKP7k1YJONxYHAiAwnwhAoOdTthArCIBAWRGAQJdVurFYEACB+UQAAj2fsoVYQQAEyooABLqs0o3FggAIzCcCEOj5lC3ECgIgUFYEINBllW4sFgRAYD4RgEDPp2whVhAAgbIiAIEuq3RjsSAAAvOJAAR6PmULsYIACJQVAQh0WaUbiwUBEJhPBCDQ8ylbiBUEQKCsCECgyyrdWCwIgMB8IgCBnk/ZQqwgAAJlRQACXVbpxmJBAATmEwEI9HzKFmIFARAoKwIQ6LJKNxYLAiAwnwhAoOdTthArCIBAWRGQAj2LP3lVVsywWBAAARCYEwJSoNkh/uTVnGCHExAAARAoTAACXZgRRoAACIBAIgQg0Ilgh1MQAAEQKEwAAl2YEUaAAAiAQCIEINCJYIdTEAABEChMAAJdmBFGgAAIgEAiBCDQiWCHUxAAARAoTAACXZgRRoAACIBAIgQg0Ilgh1MQAAEQKEwAAl2YEUaAAAiAQCIEINCJYIdTEAABEChMAAJdmBFGgAAIgEAiBCDQiWCHUxAAARAoTAACXZgRRoAACIBAIgQg0Ilgh1MQAAEQKEwgVqCfP39OaGCAGkANoAaSrQEIND6M8GGMGkANpLQGINApTQxOLsmeXMAf/NNQA1Kggz95lYbAEAM2CGoANVDuNSAFmr+xVn/yqtyhYP0QBtQAaiANNQCBxlcc+P4RNYAaSGkNQKBTmpg0fHojBpwiUQPJ1gAEGgKN0xNqADWQ0hqAQKc0MTi5JHtyAX/wT0MNQKAh0Dg9oQZQAymtAQh0ShOThk9vxIBTJGog2RqAQEOgcXpCDaAGUloDEOiUJgYnl2RPLuAP/mmoAQg0BBqnJ9RAwRr46wcNtPmP22jtxvfQZsGAGTLLYsUfAo3NWXSxFFtUGLewTp+76/fR/oOHaGx8gn755Re0WTBghsySmRazTyDQEOiiCqWYYsKYhSXMNp8bt/yJJian6NWrV/Ti+5dos2DADJklM7V8810h0BDoogolXxHh3cIUZptX/lqDT84Q59J8ODFLZmr55rtCoCHQRRVKviLCu4Uv0D///DM9f/E9WgkYMEsINIQXwosaKEkNsJhAoEv34QSBxsYsycbEyXhhn4yLza8V6O+evyC02TOAQEOgIdCogZLVgBXoZ989J7TZM4BAY3OWbHMWe8rCuIV72k6jQDf9PkO/P1qMWF6nP75R7Nhi7M1+zOsKNP7kFYQdwo4aiNQACzT/etj0t8/mvF3Z+gZlMpmgLW96RtNNy4Nn+071c3ztW+kNMd6+j17foC3tc78eZsgsmWkxhxr8Fgc2ZFGFUkwxYczCPEVbgZ6a/paSaVfpvcrl1Mj+27dS5fKmMI4jyykjn/l95Va6UiDWxuWV9F57MuuBQEN0IbqogZLVQOIC3b6Vlm+5SlPTTbS8cjktrwxP1PJkXKnGJCO6M/nggkBjc5Zsc+JUvDBPxTPJqxXoyalpSqI1VoWCXHWknd6rrKT3rkzT5JWtVFnVpGK6vKWSKre0E1+laOe75/FJrAcCDYGGQKMGSlYDLNA//fRvGr4/Ovet4XdKcJc2jNLBtzK0tOE8rVsUCrYU4EXrz8fHd24DLXrrUPy7BNbELJlpMR+S+A4aG7moQimmmDBmYZ62kxNoFuPf0VIlzFKgF9G6c6M0LIS3df0ikgLNzyzq6kNFjEvkQ8b7EIBAQ3QhuqiBktUAC/SPP/2b7o7cS6QdWJqhNw/eI31to2yuE/S6NhMfj1lE2bMm3rPraZH/mx2L1tOZhNbDLHGCxgYt2QbFyXhhnoyLzasV6DvDI5REe58F+sAIqWt2HVVUrKMzHEvrOqpY2qBiOpOtoIpsm47vwFvqaxGeo+IV45KI3/cJgYY4Q5xRAyWrgTQItP2uuaJCCLEQ3lCgG+jNTAWtbeVrRou2GOeLZRLPEGhszpJtzmJPWRi3cE/ZLNA//PgT3b47lEjb/2aG/uMD9t1Kf6hYSvttHC1ZqngzS3+o0P/TkMeEY3Ws/GzFPXJ982Ai62GW+IoDIg2RRg2UpAasQN8avENos2cAgcbGLMnGxKl44Z6KZ5JbCPTsRVl+sEGgIdAQaNRAyWqABfrlDz9S78AgWgkYMEt8xYENWrINOpPTFsYuvFO3FejuWwOENnsGEGiIM8QZNVCyGoBAz16U5QcbBBqbs2SbEyfihXcinmlOWaC/f/kDdfX1o5WAAbPEVxwQaYg0aqAkNbBxy5/owcNH6p/47OjpI7TXZ8D/6h2zZKbFfFDi3+LAJi6qUIopJoxZmKftmvp99D8fNNCjx0/USZpPgGivx4AZMktmWsx+gUBDoIsqlGKKCWMWpkBzXv9Su0ed+vhHc7TXZ8AnZ2ZZ7F6RAo0/eQWxLrpwii0wjFu4oo3c/va5lQLd3NxMGe4A+N8ePBiDMWoANVCoBqRA81gINE7R+IBGDaAGUlIDEOiUJKLQJyne47SFGii/GoBAQ6BxWkINoAZSWgMQ6JQmBqel8jstIefIuV8DEGgINE5PqAHUQEprAAKd0sT4n6R4xukKNVB+NQCBhkDj9IQaQA2ktAYg0ClNDE5L5XdaQs6Rc78GINAQaJyeUAOogZTWAAQ6pYnxP0nxjNMVaqD8agACDYHG6Qk1gBpIaQ1AoFOaGJyWyu+0hJwj534NxAo0d6KBAWoANYAaSL4GJqZf0rJly9RPORl+QAMD1ABqADWQnhoIBJpv0MAANYAaQA2kqwbUvwd99/EQoYEBagA1gBpIXw38PzwESX3Mre8oAAAAAElFTkSuQmCC)
,想要去掉这个提示。